home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / chrome-logo.scm.z / chrome-logo.scm
Encoding:
GIMP Script-Fu Script  |  1999-07-21  |  3.3 KB  |  80 lines
  1. ;  CHROME-LOGOS
  2.  
  3. (define (script-fu-chrome-logo text size font bg-color)
  4.   (let* ((img (car (gimp-image-new 256 256 RGB)))
  5.      (b-size (* size 0.2))
  6.      (offx1 (* size 0.04))
  7.      (offy1 (* size 0.03))
  8.      (offx2 (* size (- 0.04)))
  9.      (offy2 (* size (- 0.03)))
  10.      (feather (* size 0.05))
  11.      (text-layer (car (gimp-text img -1 0 0 text b-size TRUE size PIXELS "*" font "*" "*" "*" "*")))
  12.      (width (car (gimp-drawable-width text-layer)))
  13.      (height (car (gimp-drawable-height text-layer)))
  14.      (layer1 (car (gimp-layer-new img width height RGBA_IMAGE "Layer 1" 100 DIFFERENCE)))
  15.      (layer2 (car (gimp-layer-new img width height RGBA_IMAGE "Layer 2" 100 DIFFERENCE)))
  16.      (layer3 (car (gimp-layer-new img width height RGBA_IMAGE "Layer 3" 100 NORMAL)))
  17.      (shadow (car (gimp-layer-new img width height RGBA_IMAGE "Drop Shadow" 100 NORMAL)))
  18.      (background (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
  19.      (layer-mask (car (gimp-layer-create-mask layer1 BLACK-MASK)))
  20.      (old-fg (car (gimp-palette-get-foreground)))
  21.      (old-bg (car (gimp-palette-get-background))))
  22.     (gimp-image-disable-undo img)
  23.     (gimp-image-resize img width height 0 0)
  24.     (gimp-image-add-layer img background 1)
  25.     (gimp-image-add-layer img shadow 1)
  26.     (gimp-image-add-layer img layer3 1)
  27.     (gimp-image-add-layer img layer2 1)
  28.     (gimp-image-add-layer img layer1 1)
  29.     (gimp-palette-set-background '(255 255 255))
  30.     (gimp-selection-none img)
  31.     (gimp-edit-fill img layer1)
  32.     (gimp-edit-fill img layer2)
  33.     (gimp-edit-fill img layer3)
  34.     (gimp-edit-clear img shadow)
  35.     (gimp-selection-layer-alpha img text-layer)
  36.     (gimp-layer-set-visible text-layer FALSE)
  37.     (gimp-layer-set-visible shadow FALSE)
  38.     (gimp-layer-set-visible background FALSE)
  39.     (gimp-palette-set-background '(0 0 0))
  40.     (gimp-edit-fill img layer1)
  41.     (gimp-selection-translate img offx1 offy1)
  42.     (gimp-selection-feather img feather)
  43.     (gimp-edit-fill img layer2)
  44.     (gimp-selection-translate img (* 2 offx2) (* 2 offy2))
  45.     (gimp-edit-fill img layer3)
  46.     (gimp-selection-none img)
  47.     (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
  48.     (gimp-invert img layer1)
  49.     (gimp-image-add-layer-mask img layer1 layer-mask)
  50.     (gimp-selection-layer-alpha img text-layer)
  51.     (gimp-palette-set-background '(255 255 255))
  52.     (gimp-selection-feather img feather)
  53.     (gimp-edit-fill img layer-mask)
  54.     (gimp-palette-set-background '(0 0 0))
  55.     (gimp-selection-translate img offx1 offy1)
  56.     (gimp-edit-fill img shadow)
  57.     (gimp-selection-none img)
  58.     (gimp-palette-set-background bg-color)
  59.     (gimp-edit-fill img background)
  60.     (gimp-image-remove-layer img text-layer)
  61.     (gimp-layer-set-visible shadow TRUE)
  62.     (gimp-layer-set-visible background TRUE)
  63.     (gimp-layer-set-name layer1 text)
  64.     (gimp-palette-set-foreground old-fg)
  65.     (gimp-palette-set-background old-bg)
  66.     (gimp-image-enable-undo img)
  67.     (gimp-display-new img)))
  68.  
  69. (script-fu-register "script-fu-chrome-logo"
  70.             "<Toolbox>/Xtns/Script-Fu/Logos/Chrome"
  71.             "Somewhat simplistic, but cool chromed logos"
  72.             "Spencer Kimball"
  73.             "Spencer Kimball & Peter Mattis"
  74.             "1997"
  75.             ""
  76.             SF-VALUE "Text String" "\"The GIMP\""
  77.             SF-VALUE "Font Size (in pixels)" "100"
  78.             SF-VALUE "Font" "\"Bodoni\""
  79.             SF-COLOR "Background Color" '(191 191 191))
  80.